home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / games / 223 / accent / accentst.mod < prev    next >
Text File  |  1988-02-07  |  2KB  |  71 lines
  1. IMPLEMENTATION MODULE AccentStrings;
  2.  
  3. (* Copyright 1987,1988 Ken Badertscher
  4.  * Permission is granted to freely use this program and source code,
  5.  * however it may NOT be used or modified for any commercial gain.
  6.  * The author disclaims responsibility for any damages resulting
  7.  * from the use or misuse of this program, and disclaims liability
  8.  * for losses of any kind or nature, financial or otherwise,
  9.  * incurred as a result of the use of this software.
  10.  *)
  11.  
  12. BEGIN
  13.     vowel[0] := 'e';
  14.     vowel[1] := 'a';
  15.     vowel[2] := 'o';
  16.     vowel[3] := 'i';
  17.     vowel[4] := 'u';
  18.     vowel[5] := 'y';
  19.  
  20.     cocknie[0] := 'ruddy';
  21.     cocknie[1] := 'bloody';
  22.     cocknie[2] := 'bleedin';
  23.  
  24.     nerdism[0] := 'like';
  25.     nerdism[1] := 'you know';
  26.     nerdism[2] := 'uh';
  27.     nerdism[3] := 'um';
  28.     nerdism[4] := 'er';
  29.     nerdism[5] := 'well';
  30.     nerdism[6] := 'I mean';
  31.     nerdism[7] := 'okay';
  32.     nerdism[8] := 'oh';
  33.  
  34.     curse[0] := 'damn';
  35.     curse[1] := 'damned';
  36.     curse[2] := 'goddamn';
  37.     curse[3] := 'goddamned';
  38.     curse[4] := 'fucking';
  39.     curse[5] := 'motherfucking';
  40.     curse[6] := 'shitty';
  41.     curse[7] := 'son-of-a-bitch';
  42.     curse[8] := 'piece-of-shit';
  43.     curse[9] := 'crappy';
  44.     curse[10] := 'dumbass';
  45.     curse[11] := 'bastard';
  46.     curse[12] := 'screwed-up';
  47.     curse[13] := 'fucked';
  48.  
  49.     censor[0] := '*';
  50.     censor[1] := '%';
  51.     censor[2] := '#';
  52.     censor[3] := '!';
  53.     censor[4] := '&';
  54.     censor[5] := '+';
  55.     censor[6] := '?';
  56.     censor[7] := '@';
  57.  
  58.     article[0] := 'a';
  59.     article[1] := 'the';
  60.     article[2] := 'its';
  61.     article[3] := 'my';
  62.     article[4] := 'his';
  63.     article[5] := 'her';
  64.     article[6] := 'our';
  65. (*
  66.     article[7] := 'these';
  67.     article[8] := 'those';
  68.     article[9] := 'their';
  69. *)
  70. END AccentStrings.
  71.